Sub 집계함수변경()
    
    Dim i As Long
    
    For i = 1 To 1
    
        With ActiveSheet.PivotTables(1)
        
            .DataFields(i).Function = xlSum
    
        End With
    
    Next

End Sub
